function y = vecr(x)
  
y = x';
y = y(:);

 
  
